home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / bin / ldn < prev    next >
Text File  |  1993-07-13  |  1KB  |  72 lines
  1. #!/bin/sh
  2.  
  3. # $Id: ldn,v 1.2 90/11/29 21:48:09 is Exp $
  4. # $Log:    ldn,v $
  5. # Revision 1.2  90/11/29  21:48:09  is
  6. # Changed brad_export to denton_export
  7. # 
  8. # Revision 1.1  90/11/29  21:47:24  is
  9. # Replacement ld script for Eulisp
  10. # 
  11.  
  12.  
  13. PATH=/usr/local/bin:/bin:/usr/bin:/usr/ucb:$PATH
  14.  
  15. # A replacement LD script.
  16. # Go through the arguements, and try and guess which are the ones
  17. # which are elvira modules. Construct the setup function
  18.  
  19. echo "Building init_elvira.c"
  20.  
  21. comline=""
  22. elviram=""
  23.  
  24. while [ $# -gt 0 ]
  25. do
  26.     case "$1" in
  27.     -*)
  28.         comline="$comline $1";;
  29.     *init_elvira.o)
  30.         ;;
  31.     *elvira.o)
  32.         comline="$comline init_elvira.o $1";;
  33.     *.c)
  34.         comline="$comline $1"
  35.         elviram="$elviram $1";;
  36.     *.o)
  37.         comline="$comline $1"
  38.         elviram="$elviram $1";;
  39.     *)
  40.         comline="$comline $1";;
  41.     esac
  42.     shift
  43. done
  44.  
  45. # When we get here, we should have a list of .o files belonging to 
  46. # Elvira modules
  47. #
  48. # Look for their startup routines
  49.  
  50. elviram=`echo $elviram | sed 's/\.c/.o/g'`
  51.  
  52. initnames=`nm -aeh $elviram | egrep 'Def\. Text *INIT_' | awk '{print $4}'`
  53.  
  54. cat ${LINK-/net/brad/denton_export/denton/You/NewYou/Feel/Src/el_linkins.c} > init_elvira.c
  55.  
  56. echo '
  57. void initialise_elvira_modules(LispObject *stacktop) 
  58. {
  59.   dp = nil;
  60.   dlp = nil;
  61. ' >> init_elvira.c
  62.  
  63. for i in $initnames
  64. do
  65. echo "    $i(stacktop);" >> init_elvira.c
  66. done
  67. echo "}" >> init_elvira.c
  68.  
  69. set -x
  70. cc -c $defines $ElviraHdrs init_elvira.c &&
  71. /bin/ld $comline
  72.